home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Exchange
/
CD Exchange - Volume 1.iso
/
graphics
/
utils
/
hamlabplus_demo
/
rexx
/
testvar.hl
< prev
Wrap
Text File
|
1992-06-22
|
3KB
|
83 lines
/* test HamLab Plus REXX variable interface */
'GETATTR APPLICATION STEM APPL'
say 'Application attributes:'
say APPL.NAME 'version' APPL.VERSION
say ' screen:' APPL.SCREEN
'GETATTR CONFIG STEM CONF'
say 'Config attributes:'
say ' cache12bit:' CONF.CACHE12BIT.MEM||'/'||CONF.CACHE12BIT.DISK
say ' cache24bit:' CONF.CACHE24BIT.MEM||'/'||CONF.CACHE24BIT.DISK
say ' fixham:' CONF.FIXHAM
say ' beep:' CONF.BEEP
say ' ask:' CONF.ASK
say ' temppath:' CONF.TEMPPATH
say ' filterpath:' CONF.FILTERPATH
say ' pipedev:' CONF.PIPEDEV
say ' rexxcon:' CONF.REXXCON
'GETATTR SCALE STEM SC'
say 'Scale attributes:'
say ' X:' SC.X pct(SC.XPERCENT)
say ' Y:' SC.Y pct(SC.YPERCENT)
say ' constrained:' SC.CONSTRAINED
'GETATTR INPUT STEM INP'
say 'Input attributes:'
say ' path:' INP.PATH
say ' name:' INP.NAME
say ' pattern:' INP.PATTERN
say ' size:' INP.WIDTH||'x'||INP.HEIGHT||'x'||INP.DEPTH
say ' format:' INP.FORMAT
say ' cropping:' 'upper left:' INP.CROP.ULX||','||INP.CROP.ULY 'size:' INP.CROP.WIDTH||'x'||INP.CROP.HEIGHT
'GETATTR OUTPUT STEM O'
say 'Output attributes:'
say ' path:' O.PATH
say ' name:' O.NAME
say ' pattern:' O.PATTERN
say ' extension:' O.EXTENSION
say ' cropping:' 'upper left:' O.CROP.ULX||','||O.CROP.ULY 'size:' O.CROP.WIDTH||'x'||O.CROP.HEIGHT
say ' mode:'
say ' resolution:' O.MODE.RESOLUTION||'-'||O.MODE.BITPLANES||lace(O.MODE.INTERLACE)||'/'||O.MODE.DITHER||'/'||O.MODE.DITHER2
say ' palette:' O.MODE.PALETTEMODE
if O.MODE.PALETTEMODE == "SLICED" then say ' ('||O.MODE.SLICECOLORS 'colors sliced)'
say ' save:' O.MODE.SAVEMODE
say ' onestep:' O.MODE.ONESTEP
say ' lock bg:' O.MODE.LOCKBACKGROUND
'GETATTR DISPLAY STEM D'
say 'Display attributes:'
if D.VISIBLE.WIDTH = 0 then say '(display not open)'; else do
say 'total size:' D.TOTAL.WIDTH||'x'||D.TOTAL.HEIGHT
say 'visible size:' D.VISIBLE.WIDTH||'x'||D.VISIBLE.HEIGHT 'at' D.VISIBLE.ULX||','||D.VISIBLE.ULY
end
'GETATTR COLOR STEM C'
say 'Color attributes:'
say ' path:' C.PATH
say ' name:' C.NAME
say ' pattern:' C.PATTERN
say ' gamma:' C.GAMMA
say ' stepsize:' C.STEPSIZE
say ' red:' curve(C.RED,0) curve(C.RED,128) curve(C.RED,255)
say ' green:' curve(C.GREEN,0) curve(C.GREEN,128) curve(C.GREEN,255)
say ' blue:' curve(C.BLUE,0) curve(C.BLUE,128) curve(C.BLUE,255)
exit
pct:
arg x
if x == "ON" then return '%'
return ' '
lace:
arg x
if x == "ON" then return '/LACE'
return ' '
curve:
arg x,n
return c2d(substr(x,n*2+1,2,2))